home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
16
/
wp42b.zip
/
WP42B.DEF
< prev
next >
Wrap
Text File
|
1987-03-30
|
37KB
|
960 lines
;
; WordPerfect 4.1 pop-up mouse menus
;
; Set up initial labels for mouse commands
begin leftb,rightb,bothb,mousel,mouser,mouseu,moused,24,32
; -------------------- Left Button ---------------------------
leftb: execute others ;Bring up function key menu
; -------------------- Right button ------------------------
bothb: execute printmenu
; --------------------- Both buttons ------------------------
rightb: execute keyaltf4 ;block
; -------------------- Mouse left -----------------------
mousel: execute left ;cursor left
; ------------------- Mouse right -----------------------
mouser: execute right ;cursor right
; --------------------- Mouse up -----------------------
mouseu: execute up ;cursor up
moused: execute down ;cursor down
; ---------------- Function Key Selection --------------------
others: popup 1,1,normal
; 12345678911234567892123456789312345678941234567895123456789612345678971234567898
; 0 0 0 0 0 0 0 0
text " CANCEL "
text " F2 Home, F2"
text " ╔═════════════════╤═════════════════╤══════════════════╗"
text " ║ Shell │ Spell │ ║ Ctrl + Function Key"
text " F1║ SUPER/SUBSCRIPT │ <-SEARCH │EXTENDED <-SEARCH ║ SHIFT + Function Key"
text " ║ Thesaurus │ Replace │ Extended Replace ║ Alt + Function Key"
text " ║_____Cancel______│_____Search->__ │ Extended Search->║ Function Key Alone"
text " ║ Screen │ Move ╞══════════════════╝"
text " F3║ SWITCH │ ->INDENT<- ║F4"
text " ║ Reveal Codes │ Block ║"
text " ║______Help_______│____->Indent_____║"
text " ║ Text In/Out │ Tab Align ║"
text " F5║ DATE │ CENTER ║F6"
text " ║ Mark Text │ Flush Right ║ ╔═ Cursor Movement ═══╗"
text " ║____List Files___│______Bold_______║ ║ │ ║"
text " ║ Footnote │ Print ║ ║ Go To │ Page UP ║"
text " F7║ PRINT │ LINE FORMAT ║F8 ║ │ ║"
text " ║ Math/Columns │ Page Format ║ ║__________│__________║"
text " ║______Exit_______│____Underline____║ ║ │ ║"
text " ║ Merge/Sort │ Macro Def. ║ ║ Del EOLn │ Page Dn ║"
text " F9║ MERGE E │ RETRIEVE TEXT ║F10 ║ Del EOPg │ ║"
text " ║ Merge Codes │ Macro ║ ║ │ ║"
text " ║ Merge R │ Save Text ║ ╚══════════╧══════════╝"
text " ╚═════════════════╧═════════════════╝"
; 1234567891123456789212345678931234567894123456789512345678961234567897
; 0 0 0 0 0 0 0
select 1,4,37
select 4,5,17,shellmenu ;Escape to DOS
select 5,5,17,subsmenu ;Superscript/Subscript
select 6,5,17,keyaltf1 ;Thesaurus
select 7,5,17,keyf1 ;Cancel
select 8,5,17,scrnmenu ;Screen
select 9,5,17,keyshf3 ;Switch
select 10,5,17,keyaltf3 ;Reveal codes
select 11,5,17,keyf3 ;help
select 12,5,17,textmenu ;Text In/Out
select 13,5,17,datemenu ;Date
select 14,5,17,markmatch ;Mark Text
select 15,5,17,keyf5 ;List Files
select 16,5,17,footnote ;Footnote
select 17,5,17,printmenu ;Print
select 18,5,17,mathmatch ;Math / Columns
select 19,5,17,keyf7 ;Exit
select 20,5,17,merge ;Merge/Sort
select 21,5,17,keyshf9 ;Merge E
select 22,5,17,mergecmnu ;Merge codes
select 23,5,17,keyf9 ;Merge R
select 4,23,17,keyctlf2 ;Spell
select 5,23,17,keyshf2 ;<-Search
select 6,23,17,keyaltf2 ;Replace
select 7,23,17,keyf2 ;->Search
select 8,23,17,movematch ;Move
select 9,23,17,keyshf4 ;->Indent<-
select 10,23,17,keyaltf4 ;Block
select 11,23,17,keyf4 ;->Indent
select 12,23,17,keyctlf6 ;Tab Align
select 13,23,17,keyshf6 ;Center
select 14,23,17,keyaltf6 ;Flush Right
select 15,23,17,keyf6 ;Bold
select 16,23,17,keyctlf8 ;Print
select 17,23,17,linemenu ;Line
select 18,23,17,pagematch ;Page
select 19,23,17,keyf8 ;Underline
select 20,23,17,keyctlf10 ;Macro Def
select 21,23,17,keyshf10 ;Retrieve
select 22,23,17,keyaltf10 ;Macro
select 23,23,17,keyf10 ;Save
select 5,41,18,extsrchup ;Extended <-Search
select 6,41,18,extreplace ;Extended Replace
select 7,41,18,extsrchdwn ;Extended Search->
select 16,49,8,goto ;GOTO (CTRL HOME)
select 20,49,8,deleol ;Delete to end of line
select 21,49,8,deleop ;delete t end of page
select 16,59,9,pageup ;scroll page up
select 20,59,9,pagedn ;scroll page down
pend
; ------------- SHELL - execute DOS (CTL F1) ---------------
;
shellmenu: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " Execute DOS Shell: CANCEL Go to DOS"
select 1,23,6
select 1,33,9,shell
pend
shell: execute keyctlf1,key1
;
; ---------------- MERGE CODES (ALT F9) ----------------------
;
mergecmnu: popup 5,5,normal
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ╔═══ Merge Code Menu ══════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ^C..Keyboard Input ^P..Primary File ║"
text " ║ ^D..Current Date ^Q..Stop Merge ║"
text " ║ ^E..End of Record ^R..End of File ║"
text " ║ ^F..Field Number ^S..Secondary File ║"
text " ║ ^G..Start Macro ^T..Text to Printer ║"
text " ║ ^N..Next Record ^U..Update Screen ║"
text " ║ ^O..Message ^V..Xfer Mrge Codes ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 4,6,18,mrgctlc
select 5,6,18,mrgctld
select 6,6,18,mrgctle
select 7,6,18,mrgctlf
select 8,6,18,mrgctlg
select 9,6,18,mrgctln
select 10,6,18,mrgctlo
select 4,27,19,mrgctlp
select 5,27,19,mrgctlq
select 6,27,19,mrgctlr
select 7,27,19,mrgctls
select 8,27,19,mrgctlt
select 9,27,19,mrgctlu
select 10,27,19,mrgctlv
pend
mrgctlc: execute keyaltf9,keyc
mrgctld: execute keyaltf9,keyd
mrgctle: execute keyaltf9,keye
mrgctlf: execute keyaltf9,keyf
mrgctlg: execute keyaltf9,keyg
mrgctln: execute keyaltf9,keyn
mrgctlo: execute keyaltf9,keyo
mrgctlp: execute keyaltf9,keyp
mrgctlq: execute keyaltf9,keyq
mrgctlr: execute keyaltf9,keyr
mrgctls: execute keyaltf9,keys
mrgctlt: execute keyaltf9,keyt
mrgctlu: execute keyaltf9,keyu
mrgctlv: execute keyaltf9,keyv
;
; ------------- Print Menu (SHIFT F7) ----------------------
;
printmenu: popup 5,5,normal
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ╔═══ Print Menu ═══════════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Full Text Printer Control ║"
text " ║ Page Type Thru ║"
text " ║ Change Options Preview ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 5,6,18,prtfulltext
select 6,6,18,prtpage
select 7,6,18,prtchngopts
select 5,27,19,prtcontrol
select 6,27,19,prttypethru
select 7,27,19,prtpreview
pend
prtfulltext: execute keyshf7,key1
prtpage: execute keyshf7,key2
prtchngopts: execute keyshf7,key3
prtcontrol: execute keyshf7,key4
prttypethru: execute keyshf7,key5
prtpreview: popup 25,1,bold
; 123456789112345678921234567893123456789
; 0 0 0
text "Print preview: CANCEL DOCUMENT PAGE"
select 1,16,6
select 1,25,8,prtprevdoc
select 1,36,4,prtprevpage
pend
prtprevdoc: execute keyshf7,key6,key1
prtprevpage: execute keyshf7,key6,key2
;
; --------- Document Conversion & Locking (CTL F5) --------
;
; 1234567891123456789212345678931234567894123456789512345678961
; 0 0 0 0 0 0
textmenu: popup 5,5,normal
text " ╔═══ Document Conversion and Locking ═════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Save current document as DOS text file ║"
text " ║ Retrieve a DOS text file (CR/LF becomes [HRt] ║"
text " ║ Retrieve a DOS text file (CR/LF in H-Zone becomes [SRt] ║"
text " ║ Lock and save current document ║"
text " ║ Unlock and retrieve a locked document ║"
text " ║ Save in a generic word processor format ║"
text " ║ Save in WordPerfect 4.1 format ║"
text " ║ Create/Edit Summary ║"
text " ║ Create Comment ║"
text " ║ Edit Comment ║"
text " ║ Display Summary and Comments ║"
text " ║ ║"
text " ╚═════════════════════════════════════════════════════════╝"
select 3,6,55
select 5,6,55,txtsave
select 6,6,55,txtreadhrt
select 7,6,55,txtreadsrt
select 8,6,55,txtlock
select 9,6,55,txtunlock
select 10,6,55,genericsave
select 11,6,55,wp41save
select 12,6,55,creatsummary
select 13,6,55,creatcomment
select 14,6,55,editcomment
select 15,6,55,dispsumcmnt
pend
txtsave: execute keyctlf5,key1
txtreadhrt: execute keyctlf5,key2
txtreadsrt: execute keyctlf5,key3
txtlock: execute keyctlf5,key4
txtunlock: execute keyctlf5,key5
genericsave: execute keyctlf5,key6
wp41save: execute keyctlf5,key7
creatsummary: execute keyctlf5,keya
creatcomment: execute keyctlf5,keyb
editcomment: execute keyctlf5,keyc
dispsumcmnt: execute keyctlf5,keyd
;
; --------- Super/Subscript (SHIFT F1) --------------------
;
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
subsmenu: popup 5,5,normal
text " ╔═══ Super/Subscript ══════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Superscript Advance up ║"
text " ║ Subscript Advance down ║"
text " ║ Overstrike Advance line ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 5,6,18,subsuper
select 6,6,18,subsubsc
select 7,6,18,subover
select 5,27,19,subadvup
select 6,27,19,subadvdn
select 6,27,19,subadvln
pend
subsuper: execute keyshf1,key1
subsubsc: execute keyshf1,key2
subover: execute keyshf1,key3
subadvup: execute keyshf1,key4
subadvdn: execute keyshf1,key5
subadvln: execute keyshf1,key6
;
; --------- Line Formatting (SHIFT F6) --------------------
;
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
linemenu: popup 5,5,normal
text " ╔═══ Line Format Options ══════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Tabs Hyphenation ║"
text " ║ Margins Set align character ║"
text " ║ Spacing ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 5,6,18,linetabs
select 6,6,18,linemargins
select 7,6,18,linespace
select 5,27,19,linehyphn
select 6,27,19,linealign
pend
linetabs: execute keyshf8,key1
linemargins: execute keyshf8,key3
linespace: execute keyshf8,key4
linehyphn: execute keyshf8,key5
linealign: execute keyshf8,key6
;
; --------- Page Formatting (ALT F6) --------------------
;
; Check for "Block on" in lower left of screen. If Typeover mode is
; on, the block literal will be shifted to column 11.
;
pagematch: match 25,1,,"Block on",keyaltf8,pagematch2
pagematch2: match 25,11,,"Block on",keyaltf8,pagemenu
;
;
; 12345678911234567892123456789312345
; 0 0 0 0
pagemenu: popup 5,5,normal
text " ╔═══ Page Format Options ═════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Page Number Position ║"
text " ║ New Page Number ║"
text " ║ Center Top to Bottom ║"
text " ║ Page Length ║"
text " ║ Top Margin ║"
text " ║ Headers or Footers ║"
text " ║ Page Number Column Position ║"
text " ║ Suppress for Current Page ║"
text " ║ Conditional End of Page ║"
text " ║ Widow/Orphan ║"
text " ║ ║"
text " ╚═════════════════════════════╝"
select 3,6,27
select 5,6,27,pagepos
select 6,6,27,pagenum
select 7,6,27,pagecenter
select 8,6,27,pagelen
select 9,6,27,pagetopmrg
select 10,6,27,pagehdrs
select 11,6,27,pagenumcp
select 12,6,27,pagesuppr
select 13,6,27,pageeop
select 14,6,27,pagewidow
pend
pagenum: execute keyaltf8,key2
pagecenter: execute keyaltf8,key3
pagetopmrg: execute keyaltf8,key5
pagehdrs: execute keyaltf8,key6
pagenumcp: execute keyaltf8,key7
pagesuppr: execute keyaltf8,key8
pageeop: execute keyaltf8,key9
pagewidow: execute keyaltf8,keya
;
; --------- Option 1 of Page formatting --------------------
;
; 1234567891123456789212345678931234567
; 0 0 0 0
pagepos: popup 5,5,normal
text " ╔═══ Page Number Positioning ═══╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ No Page Numbers ║"
text " ║ Top left of every page ║"
text " ║ Top center of every page ║"
text " ║ Top right of every page ║"
text " ║ Top alternating left & right ║"
text " ║ Bot. left of every page ║"
text " ║ Bot. center of every page ║"
text " ║ Bot. right of every page ║"
text " ║ Bot. alternating left & right ║"
text " ║ ║"
text " ╚═══════════════════════════════╝"
select 3,6,29
select 5,6,29,pgnumnone
select 6,6,29,pgnumtl
select 7,6,29,pgnumtc
select 8,6,29,pgnumtr
select 9,6,29,pgnumtlr
select 10,6,29,pgnumbl
select 11,6,29,pgnumbc
select 12,6,29,pgnumbr
select 13,6,29,pgnumblr
pend
pgnumnone: execute keyaltf8,key1,key0,key0
pgnumtl: execute keyaltf8,key1,key1,key0
pgnumtc: execute keyaltf8,key1,key2,key0
pgnumtr: execute keyaltf8,key1,key3,key0
pgnumtlr: execute keyaltf8,key1,key4,key0
pgnumbl: execute keyaltf8,key1,key5,key0
pgnumbc: execute keyaltf8,key1,key6,key0
pgnumbr: execute keyaltf8,key1,key7,key0
pgnumblr: execute keyaltf8,key1,key8,key0
;
; --------- Option 4 of Page formatting --------------------
;
; 123456789112345678921234567893123456
; 0 0 0 0
pagelen: popup 5,5,normal
text " ╔═══ Page Length ═══════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Letter: 66 lines @ 54 / page ║"
text " ║ Legal: 84 lines @ 72 / page ║"
text " ║ Other ║"
text " ║ (Other drops out of mouse ║"
text " ║ data entry mode) ║"
text " ╚═══════════════════════════════╝"
select 3,6,29
select 5,6,29,pglenlet
select 6,6,29,pglenleg
select 7,6,29,pglenoth
pend
pglenlet: execute keyaltf8,key4,key1,key0
pglenleg: execute keyaltf8,key4,key2,key0
pglenoth: execute keyaltf8,key4,key3
;
; --------- Move Menus (CTL F4) -------------
;
; Check for "Block on" in lower left of screen. If Typeover mode is
; on, the block literal will be shifted to column 11.
;
movematch: match 25,1,,"Block on",moveblk,movematch2
movematch2: match 25,11,,"Block on",moveblk,movetxt
;
; --------- Move Blocks (when "Block on" is in lower left -----
;
moveblk: popup 5,5,normal
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ╔═══ Move Block Options ═══════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Cut Block Cut/Copy Column ║"
text " ║ Copy Block Cut/Copy Rectangle ║"
text " ║ Append ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 5,6,18,blkcut
select 6,6,18,blkcopy
select 7,6,18,blkapnd
select 5,27,19,blkcccol
select 6,27,19,blkccrect
pend
blkcut: execute keyctlf4,key1
blkcopy: execute keyctlf4,key2
blkapnd: execute keyctlf4,key3
blkcccol: popup 25,1,bold
; 12345678911234567892123456789312345678941234567895
; 0 0 0 0 0
text "Block cut/copy column: CANCEL CUT COPY DELETE"
select 1,24,6
select 1,33,3,blkcc1
select 1,39,4,blkcc2
select 1,45,6,blkcc3
pend
blkcc1: execute keyctlf4,key4,key1
blkcc2: execute keyctlf4,key4,key2
blkcc3: execute keyctlf4,key4,key3
blkccrect: popup 25,1,bold
; 12345678911234567892123456789312345678941234567895123
; 0 0 0 0 0
text "Block cut/copy rectangle: CANCEL CUT COPY DELETE"
select 1,27,6
select 1,36,3,blkcc4
select 1,42,4,blkcc5
select 1,48,6,blkcc6
pend
blkcc4: execute keyctlf4,key5,key1
blkcc5: execute keyctlf4,key5,key2
blkcc6: execute keyctlf4,key5,key3
;
; --------- Move Text (when "Block on" is not in lower left -----
;
movetxt: popup 5,5,normal
; 12345678911234567892123456789312345678
; 0 0 0
text " ╔═══ Move Options ═══════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ MOVE RETRIEVE ║"
text " ║ ---------- ----------- ║"
text " ║ Sentence Column ║"
text " ║ Paragraph Text ║"
text " ║ Page Rectangle ║"
text " ║ ║"
text " ╚════════════════════════════════╝"
select 3,6,29
select 7,6,12,mvtxtsent
select 8,6,12,mvtxtpara
select 9,6,12,mvtxtpage
select 7,23,12,mvtxtrcol
select 8,23,12,mvtxtrtext
select 9,23,12,mvtxtrrect
pend
mvtxtrcol: execute keyctlf4,key4
mvtxtrtext: execute keyctlf4,key5
mvtxtrrect: execute keyctlf4,key6
;
mvtxtsent: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text "Move text sentence: CANCEL CUT COPY DELETE"
select 1,21,6
select 1,30,3,movsent1
select 1,36,4,movsent2
select 1,42,6,movsent3
pend
movsent1: execute keyctlf4,key1,key1
movsent2: execute keyctlf4,key1,key2
movsent3: execute keyctlf4,key1,key3
;
mvtxtpara: popup 25,1,bold
; 123456789112345678921234567893123456789412345678
; 0 0 0 0
text "Move text paragraph: CANCEL CUT COPY DELETE"
select 1,22,6
select 1,31,3,movpara1
select 1,37,4,movpara2
select 1,43,6,movpara3
pend
movpara1: execute keyctlf4,key2,key1
movpara2: execute keyctlf4,key2,key2
movpara3: execute keyctlf4,key2,key3
;
mvtxtpage: popup 25,1,bold
; 1234567891123456789212345678931234567894123
; 0 0 0 0
text "Move text page: CANCEL CUT COPY DELETE"
select 1,17,6
select 1,26,3,movpage1
select 1,32,4,movpage2
select 1,38,6,movpage3
pend
movpage1: execute keyctlf4,key3,key1
movpage2: execute keyctlf4,key3,key2
movpage3: execute keyctlf4,key3,key3
;
; ------------- Screen Menu (CTL F2) ---------------------
;
scrnmenu: popup 5,5,normal
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ╔═══ Screen Menu ═════════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Rewrite CTL/ALT Keys ║"
text " ║ Window Colors ║"
text " ║ Line Draw Auto Rewrite ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 5,6,18,scrnrewrite
select 6,6,18,scrnwind
select 7,6,18,scrnline
select 5,27,19,scrnctlalt
select 6,27,19,scrncolors
select 7,27,19,scrnautorw
pend
scrnrewrite: execute keyctlf3,key0
scrnwind: execute keyctlf3,key1
scrnline: execute keyctlf3,key2
scrnctlalt: execute keyctlf3,key3
scrncolors: execute keyctlf3,key4
scrnautorw: execute keyctlf3,key5
;
; ------------- Footnotes (CTL F7) -----------------------
;
footnote: popup 5,5,normal
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ╔═══ Footnote ═════════════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Create Options ║"
text " ║ Edit Create Endnote ║"
text " ║ New number Edit Endnote ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 5,6,18,footcreate
select 6,6,18,footedit
select 7,6,18,footnew
select 5,27,19,footoption
select 6,27,19,footend
select 7,27,19,footendedit
pend
footcreate: execute keyctlf7,key1
footedit: execute keyctlf7,key2
footnew: execute keyctlf7,key3
footoption: execute keyctlf7,key4
footend: execute keyctlf7,key5
footendedit: execute keyctlf7,key6
;
; ------------- Merge Menu (CTL F9) ----------------------
;
merge: popup 5,5,normal
; 1234567891123456789212345678
; 0 0
text " ╔═ Merge/Sort Options ═╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Merge ║"
text " ║ Sort ║"
text " ║ Sorting Sequences ║"
text " ║ ║"
text " ╚══════════════════════╝"
select 3,6,18
select 5,6,18,mrgmerge
select 6,6,18,mrgsort
select 7,6,18,mrgseq
pend
mrgmerge: execute keyctlf9,key1
mrgsort: execute keyctlf9,key2
mrgseq: execute keyctlf9,key3
;
; ------------- Merge Menu (CTL F9) ----------------------
;
datemenu: popup 25,1,normal
; 1234567891123456789212345678931234567894123456789512345678961234567897123456
; 0 0 0 0 0 0
text "Dates: CANCEL Ins. Date as Text Ins. Date Function Chg. Date Format"
select 1,8,6
select 1,18,17,dattext
select 1,39,18,datfunc
select 1,61,16,datform
pend
dattext: execute keyshf5,key1
datform: execute keyshf5,key2
datfunc: execute keyshf5,key3
;
; ------------- Math/Columns (ALT F7) --------------------
;
; Check for "Math" in lower left of screen. If Typeover mode is on,
; the "Math" literal will be shifted to column 11.
;
mathmatch: match 25,1,,"Math",mathonmenu,mathmatch1
mathmatch1: match 25,11,,"Math",mathonmenu,mathoffmenu
;
; ------------- Math/Columns (ALT F7) (MATH OFF)----------
;
mathoffmenu: popup 5,5,normal
; 1234567891123456789212345678
; 0 0
text " ╔═ Math/Columns ════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Math On ║"
text " ║ Math Definition ║"
text " ║ Column On/Off ║"
text " ║ Column Definition ║"
text " ║ Column Display ║"
text " ║ ║"
text " ╚═══════════════════╝"
select 3,6,17
select 5,6,17,mathon
select 6,6,17,mathdef
select 7,6,17,colmon1
select 8,6,17,colmdef1
select 9,6,17,colmdsp1
pend
mathon: execute keyaltf7,key1
mathdef: execute keyaltf7,key2
colmon1: execute keyaltf7,key3
colmdef1: execute keyaltf7,key4
colmdsp1: execute keyaltf7,key5
;
; ------------- Math/Columns (ALT F7) (MATH ON)-----------
;
mathonmenu: popup 5,5,normal
; 1234567891123456789212345678
; 0 0
text " ╔═ Math/Columns ════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Math Off ║"
text " ║ Calculate ║"
text " ║ Column On/Off ║"
text " ║ Column Definition ║"
text " ║ Column Display ║"
text " ║ ║"
text " ╚═══════════════════╝"
select 3,6,17
select 5,6,17,mathoff
select 6,6,17,mathcalc
select 7,6,17,colmon2
select 8,6,17,colmdef2
select 9,6,17,colmdsp2
pend
mathoff: execute keyaltf7,key1
mathcalc: execute keyaltf7,key2
colmon2: execute keyaltf7,key3
colmdef2: execute keyaltf7,key4
colmdsp2: execute keyaltf7,key5
;
;
; ------------- Mark Text (ALT F5) -----------------------
;
;
; Check for "Block on" in lower left of screen. If Typeover mode is
; on, the block literal will be shifted to column 11.
;
markmatch: match 25,1,,"Block on",markblk,markmatch2
markmatch2: match 25,11,,"Block on",markblk,markmenu
;
markblk: popup 5,5,normal
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ╔═══ Mark Block for ════════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Table of contents Strikeout ║"
text " ║ List Index ║"
text " ║ Redline Table of Authorities ║"
text " ║ ║"
text " ╚═══════════════════════════════════════════╝"
select 3,6,41
select 5,6,18,markblktoc
select 6,6,18,markblklist
select 7,6,18,markblkredline
select 5,27,20,markblkstrikeout
select 6,27,20,markblkindex
select 7,27,20,markblktoa
pend
markblktoc: execute keyaltf5,key1
markblklist: execute keyaltf5,key2
markblkredline: execute keyaltf5,key3
markblkstrikeout: execute keyaltf5,key4
markblkindex: execute keyaltf5,key5
markblktoa: execute keyaltf5,key6
;
markmenu: popup 5,5,normal
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ╔═══ Mark Text Options ════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Outline Short form ║"
text " ║ Paragraph number Index ║"
text " ║ Redline Other Options ║"
text " ║ ║"
text " ╚══════════════════════════════════════════╝"
select 3,6,40
select 5,6,18,markoutline
select 6,6,18,markpara
select 7,6,18,markredline
select 5,27,19,markshortfrm
select 6,27,19,markindex
select 7,27,19,markothomenu
pend
markoutline: execute keyaltf5,key1
markpara: execute keyaltf5,key2
markredline: execute keyaltf5,key3
markshortfrm: execute keyaltf5,key4
markindex: execute keyaltf5,key5
;
; --------- Mark Text Other Options (ALT F5, 5) -----------
;
; 1234567891123456789212345678931234567894123456789512345678961
; 0 0 0 0 0 0
markothomenu: popup 5,5,normal
text " ╔═══ Mark Text Other Options ═════════════════════════════╗"
text " ║ ║"
text " ║ CANCEL ║"
text " ║ ║"
text " ║ Define paragraph/outline numbering ║"
text " ║ Define table of contents ║"
text " ║ Define list ║"
text " ║ Define table of authorities ║"
text " ║ Define index ║"
text " ║ Remove all redline markings and strikeout text ║"
text " ║ Edit table of authorities full form ║"
text " ║ Generate tables and index ║"
text " ║ ║"
text " ╚═════════════════════════════════════════════════════════╝"
select 3,6,55
select 5,6,55,markothdnumb
select 6,6,55,markothdtoc
select 7,6,55,markothdlist
select 8,6,55,markothdtoa
select 9,6,55,markothdndx
select 10,6,55,markothrmov
select 11,6,55,markothedit
select 12,6,55,markothgen
pend
markothdnumb: execute keyaltf5,key6,key1
markothdtoc: execute keyaltf5,key6,key2
markothdlist: execute keyaltf5,key6,key3
markothdtoa: execute keyaltf5,key6,key4
markothdndx: execute keyaltf5,key6,key5
markothrmov: execute keyaltf5,key6,key6
markothedit: execute keyaltf5,key6,key7
markothgen: execute keyaltf5,key6,keya
;
; ------------- Extended searches and replace ------------
;
extsrchup: execute keyhome,keyshf2 ;Extended <-Search
extreplace: execute keyhome,keyaltf2 ;Extended Replace
extsrchdwn: execute keyhome,keyf2 ;Extended Search->
;
; ------------- Cursor movement keys --------------------
;
goto: execute keyctlhome
deleop: execute keyctlpgdn ;delete to end of page
pageup: execute keypgup ;scroll page up
pagedn: execute keypgdn ;scroll page down
deleol: popup 25,1,bold
; 123456789112345678921234567893123456789412345678951234
; 0 0 0 0 0
text "Verify delete of text to end of line: CANCEL DELETE"
select 1,39,6
select 1,48,6,keyctlend
pend
;
;
; ------------- Keystroke definintions -------------------
;
key0: type "0"
key1: type "1"
key2: type "2"
key3: type "3"
key4: type "4"
key5: type "5"
key6: type "6"
key7: type "7"
key8: type "8"
key9: type "9"
keya: type "A"
keyb: type "B"
keyc: type "C"
keyd: type "D"
keye: type "E"
keyf: type "F"
keyg: type "G"
keyh: type "H"
keyi: type "I"
keyj: type "J"
keyk: type "K"
keyl: type "L"
keym: type "M"
keyn: type "N"
keyo: type "O"
keyp: type "P"
keyq: type "Q"
keyr: type "R"
keys: type "S"
keyt: type "T"
keyu: type "U"
keyv: type "V"
keyw: type "W"
keyx: type "X"
keyy: type "Y"
keyz: type "Z"
keyctla: type 1
keyctlb: type 2
keyctlc: type 3
keyctld: type 4
keyctle: type 5
keyctlf: type 6
keyctlg: type 7
keyctlh: type 8
keyctli: type 9
keyctlj: type 10
keyctlk: type 11
keyctll: type 12
keyctlm: type 13
keyctln: type 14
keyctlo: type 15
keyctlp: type 16
keyctlq: type 17
keyctlr: type 18
keyctls: type 19
keyctlt: type 20
keyctlu: type 21
keyctlv: type 22
keyctlw: type 23
keyctlx: type 24
keyctly: type 25
keyctlz: type 26
keyhome: type 0,71
keyctlhome: type 0,119
keyctlend: type 0,117
keyctlpgdn: type 0,118
nothing: nothing
left: type 0,75
right: type 0,77
up: type 0,72
down: type 0,80
keypgup: type 0,73
keypgdn: type 0,81
keyf1: type 0,59
keyf2: type 0,60
keyf3: type 0,61
keyf4: type 0,62
keyf5: type 0,63
keyf6: type 0,64
keyf7: type 0,65
keyf8: type 0,66
keyf9: type 0,67
keyf10: type 0,68
keyaltf1: type 0,104
keyaltf2: type 0,105
keyaltf3: type 0,106
keyaltf4: type 0,107
keyaltf5: type 0,108
keyaltf6: type 0,109
keyaltf7: type 0,110
keyaltf8: type 0,111
keyaltf9: type 0,112
keyaltf10: type 0,113
keyshf1: type 0,84
keyshf2: type 0,85
keyshf3: type 0,86
keyshf4: type 0,87
keyshf5: type 0,88
keyshf6: type 0,89
keyshf7: type 0,90
keyshf8: type 0,91
keyshf9: type 0,92
keyshf10: type 0,93
keyctlf1: type 0,94
keyctlf2: type 0,95
keyctlf3: type 0,96
keyctlf4: type 0,97
keyctlf5: type 0,98
keyctlf6: type 0,99
keyctlf7: type 0,100
keyctlf8: type 0,101
keyctlf9: type 0,102
keyctlf10: type 0,103
return: type enter
; The end